home *** CD-ROM | disk | FTP | other *** search
/ Web3D Graphics - Virtual Worlds Created With VRML / Web3D Graphics - Virtual Worlds Created With VRML.iso / K2Editor / k2e_help / Help / Pascal.gif < prev    next >
Graphics Interchange Format  |  1999-12-28  |  15.9 KB  |  462x378  |  8-bit (55 colors)
   ocr: GHFopctiZEanothanipes - K2Editor X 771LF) E(E) R - 31F7W EOmh(0) AW(H) 10 30 40 50 60 AXTEOXTEZF function ExchangeUpperLower(s: string): string; vart i: integer; begins i:= 1;4 thile i <= length(s) do begint if sMSkanjlist(sl0p and (i 1< ength(s)) then incli else begins if (65 <= Urdisli))) and (Urd(sli)) <90) thent slil := Chr(Urd(sLi2 + 32)4 else if (97 <E Ord(slil)) and (Ord(sliJ) <= 122) thent s[il := Chr(Ord(sli) - 32); inc(i); end; 4 end; 4 Result := s; end; 4 SJIS CRLF 20: 697 1A